home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v9n03.arc
/
HERTZ.FNC
< prev
next >
Wrap
Text File
|
1990-01-12
|
550b
|
30 lines
HERTZ function
VAR
Oct_Val : ARRAY[5..12] OF Real;
Freq_Val : ARRAY[0..12] OF Real;
PROCEDURE Set_Frequencies;
VAR N : Byte;
BEGIN
Freq_Val[1] := 1;
Freq_Val[2] := 1.0594630944;
FOR N := 3 TO 12 DO
Freq_Val[N] := Freq_Val[N - 1] * Freq_Val[2];
Freq_Val[0] := 1/Freq_Val[2];
Oct_Val[5] := 32.70319566;
FOR N := 6 TO 12 DO
Oct_Val[N] := Oct_Val[N - 1] * 2;
END;
FUNCTION Hertz(oct, nt : byte) : Word;
BEGIN
Hertz := Round(Oct_Val[oct]*Freq_Val[nt]);
END;